SymbolCopier.mesa 2-Sep-78 12:69:59 Page 1 



-- file SymbolCopier.Mesa 

-- last modified by Satterthwaite, July 16, 1978 10:15 AM 

DIRECTORY 

CopierDefs: FROM "copierdef s" . 
InlineDefs: FROM "in! inedef s" . 
LitDefs: FROM "litdefs", 
StringDefs: FROM "stringdef s" , 
SymbolTableDefs: FROM "symbol tabledefs" , 
SymDefs: FROM "symdefs". 
SymSegDefs: FROM "symsegdef s" , 
SymTabDefs: FROM "symtabdef s" . 
SystemDefs: FROM "systemdef s" , 
TableDefs: FROM "tabledefs". 
TreeDefs: FROM "treedefs"; 

SymbolCopier: PROGRAM 
IMPORTS 

CopierDefs, LitDefs, SymbolTableDefs, SymSegDefs, SymTabDefs. 
SystemDefs, TableDefs, TreeDefs 
EXPORTS CopierDefs SHARES CopierDefs « 
BEGIN 
OPEN SymTabDefs, SymDefs; 

-- tables defining the current symbol table 

seb: TableDefs. TableBase; -- se table 

ctxb: TableDefs .TableBase; -- context table 

mdb: Tabl eDefs .TableBase; ^ -- module directory base 

bb: TableDefs. TableBase; * -- body table 

CopierNotify: Tabl eDefs .TableNotifier » 

BEGIN -- called whenever the main symbol table is repacked 

seb ♦- base[setype] ; 

ctxb ^ base[ctxtype3; mdb <- base[mdtype]; 

bb <r base[bodytype]; 

RETURN 

END; 

-- table bases for the current include module 

iBase: Symbol Tabl eDefs. Symbol TableBase; 

iHt: DESCRIPTOR FOR ARRAY --HTIndex-- OF HTRecord; 
iSeb: TableDefs . TableBase; 
iCtxb: TableDefs. TableBase; 

SearchMemo: TYPE = RECORD[ 
hti: HTIndex, 
ctx: CTXIndex]; 

NullMemo: SearchMemo = SearchMemo[hti iHTNul 1 , ctx:CTXNun]; 

MemoCacheSize: CARDINAL = 777B; 

memoCache: DESCRIPTOR FOR ARRAY OF SearchMemo; 

Copierlnit: PUBLIC PROCEDURE - 
BEGIN OPEN SystemDefs; 
i: CARDINAL; 

TableDefs.AddNotify[CopierNotify]; 

memoCache <- DESCRIPTOR [Al 1 ocateSegment[MemoCacheSize*SIZE[SearchMemo3] , MemoCacheSize]; 
FOR i IN [0 ., MemoCacheSize) DO memoCacheCi] <- NullMemo ENDLOOP; 
Symbol Tab leDefs.SetSymbol Caches ize[ 100]; 
RETURN 
END; 

CopierReset: PUBLIC PROCEDURE - 
BEGIN 

Symbol Tab leDefs.SetSymbol Caches ize[0]; 
SystemDefs . FreeSegment[BASE[memoCache]] ; 

ResetIncludeContexts[] ; Tabl eDefs .DropNot if y[CopierNotify] ; 
RETURN 
END; 
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Substring: TYPE - StringDefs. Substring; 
SubStringDescriptor: TYPE ■ StringDefs. SubStringDescriptor; 

SearchFileCtx: PUBLIC PROCEDURE [hti: HTIndex, ctx: includedCTXIndex] RETURNS [found: BOOLEAN, sei: I 
♦*SEIndex] ■ 
BEGIN 

desc: SubStringDescriptor; 
s: Substring =« @desc; 
hash: [0. .MemoCacheSize) ; 
iHti: HTIndex; 
isei: ISEIndex; 

mdi: MDIndex = (ctxb+ctx) .ctxmodule; 
ignoreprivate: BOOLEAN " (mdb+mdi) .mdshared; 
SubStringForHash[s, hti]; 
hash ^ In! ineDefs.LongDivMod[ 

InlineDefs.LongMuU[LOOPHOLE[hti], LOOPHOLE[ctx]]. 
MemoCacheSize] . remainder; 
IF memoCache[hash] .hti « hti AND memoCache[hash] .ctx » ctx 

THEN RETURN [FALSE, ISENull]; 
IF OpenIncludedTab1e[mdi] 
THEN 
BEGIN 

iHti ^ iBase. FindString[s]; 
IF iHti # HTNull 
AND 
(iHt[iHti].anyPublic 

OR (ignoreprivate AND iHt[iHti] , anylnternal )) 
THEN 
BEGIN 

isei <- iBase. SearchContext[iHti , (ctxb+ctx) .ctxmap]; 
found ♦- isei ff SENull AND ( ( iSeb+isei ) .pub! ic OR ignoreprivate); 
IF found THEN sei ^ CopyCtxSe[isei , hti, ctx, mdi]; 
END 
ELSE found <- FALSE; 
C1oseInc1udedTable[]; 
END 
ELSE 

BEGIN found <- FALSE; sei ^ ISENull 
END; 
IF -found THEN memoCache[hash] ^ SearchMemo[hti :hti , ctx:ctx]; 
RETURN 
END; 

CompleteContext: PUBLIC PROCEDURE [ctx: includedCTXIndex, ignoreprivate: BOOLEAN] » 
BEGIN 

IF ~(ctxb+ctx) .ctxreset AND OpenIncludedTable[(ctxb+ctx) .ctxmodule] 
THEN 
BEGIN 

FinContext[ctx, ignoreprivate]; CloseIncludedTable[] ; 
END; 
RETURN 
END; 

CopyUnion: PUBLIC PROCEDURE [ctx: CTXIndex] - 
BEGIN 

isei. iroot: ISEIndex; 
WITH (ctxb+ctx) SELECT FROM 
included «> 

IF -ctxreset AND OpenIncludedTable[ctxmodule] 
THEN 
BEGIN 

isei <- iroot <- ( iCtxb+ctxmap) . sei ist; 
DO 

IF isei » SENull THEN EXIT; 

IF iBase. TypeForm[( iSeb+isei) . idtype] ■ union 
THEN 
BEGIN 
IF ( iSeb+isei).htptr # HTNull 

THEN [] *- Copylncl udedSymbol[isei , ctxmodule] 
ELSE FinContext[LOOPHOLE[ctx], TRUE]; 



SymbolCopier.mesa 2-Sep-78 12:59:59 Page 



EXIT 
END; 
IF (isei ^ iBase.NextSe[isei]) - iroot THEN EXIT; 
ENDLOOP; 
CloseInc1ud0dTabl8[]; 
END; 
ENDCASE; 
RETURN 
END; 

FillContext: PROCEDURE [ctx: includedCTXIndex , ignoreprivate: BOOLEAN] ■ 
BEGIN 

sei. isei, psei: ISEIndex; 
complete: BOOLEAN; 

mdi: MDIndex ■ (ctxb+ctx) .ctxmodule; 
hti: HTIndex; 

ignoreprivate *- ignoreprivate OR (mdb+mdi) .mdshared; 
complete ^ TRUE; psei +- ISENull ; 

FOR isei <- iBase.FirstCtxSe[(ctxb+ctx) .ctxmap], iBase. NextSe[isei] UNTIL isei » SENull 
DO 

IF -((iSeb+isei). public OR ignoreprivate) 
THEN complete <- FALSE 
ELSE 

BEGIN hti ♦- MapHti[(iSeb+isei).htptr]; 
sei <- SearchContext[hti , ctx]; 

IF sei = SENull THEN sei <- CopyCtxSe[isei . hti, ctx, mdi]; 
IF psei » SENull AND NextSe[psei] ff sei 
THEN 

BEGIN Delink[sei]; 
setsel ink[sei , NextSe[psei]] ; 
setsel ink[psei , sei]; 
END; 
(ctxb+ctx) .selist <- psei ^ sei; 
END; 
ENDLOOP; 
resetctx[ctx]; (ctxb+ctx) . ctxcomplete <- complete; 
RETURN 
END; 

Delink: PUBLIC PROCEDURE [sei: ISEIndex] - 
BEGIN 

prev, next: ISEIndex; 

ctx: CTXIndex = (seb+sei) .ctxnum; -- assumed not reset 
prev <- (ctxb+ctx) .selist; 
DO 

next ♦- NextSe[prev] ; 
SELECT next FROM 
sei => EXIT; 

(ctxb+ctx). selist, ISENull «> ERROR; 
ENDCASE «> prev ♦- next; 
ENDLOOP; 
IF NextSefsei] » sei 

THEN (ctxb+ctx). selist ♦- ISENull 
ELSE 
BEGIN 

IF sei « (ctxb+ctx) .sei ist THEN (ctxb+ctx) .sei ist <r prev; 
setsel ink[prev, NextSe[sei]] ; 
END; 
setselink[sei. ISENull]; RETURN 
END; 

MapHti: PROCEDURE [iHti: HTIndex] RETURNS [hti: HTIndex] - 
BEGIN 

desc: SubStr ingDescriptor; 
s: Substring » 9desc; 
IF iHti « HTNull 
THEN hti *- HTNull 
ELSE 
BEGIN 

iBase. SubStringForHash[s, iHti]; 

hti <- EnterString[s 1 TableRelocated «> s.base ^ iBase. ssb]; 
END; 
RETURN 
END; 



SymbolCopier.mesa 2-S8p-78 12:59:59 Page 



MissingHti: ERROR - CODE; 

InverseMapHti: PROCEDURE [hti: HTIndex] RETURNS [iHti: HTIndex] - 
BEGIN 

-- N.B. assumes that the included table has been selected 
desc: SubStringDescriptor; 
s: Substring ■ Qdesc; 
IF hti - HTNun 

THEN iHti <- HTNull 
ELSE 

BEGIN 

SubStringForHash[s, hti]; 

iHti ^ iBase.FindString[s]; 

IF iHti ■ HTNun THEN ERROR MissingHti; 

END; 
RETURN 
END; 

FindlncludedCtx: PUBLIC PROCEDURE [mdi: MDIndex. ictx: CTXIndex] RETURNS [includedCTXIndex] 
BEGIN 

ctx» last: includedCTXIndex; 
target: CTXIndex; 
mdroot: MDIndex; 
desc: SubStringDescriptor; 
s: Substring » Odesc; 
WITH (iCtxb+ictx) SELECT FROM 
included »> 
BEGIN 

iBase.SubStringForHash[s, (iBase .mdb+ctxmodule) .mdhti] ; 
mdroot <- CopierDef s, FindMdEntry[s , ( iBase. mdb+ctxmodule) .mdStamp 

ITableRelocated »> s.base <- iBase. ssb]; 
target ^ ctxmap; 
END; 
ENDCASE -> 

BEGIN mdroot <- mdi; target <- ictx; 
END; 
last ^ includedCTXNull ; 

FOR ctx <- (mdb+mdroot) .mdctx, (ctxb+ctx) .ctxchain UNTIL ctx ■ CTXNull 
DO 

IF (ctxb+ctx). ctxmap « target THEN RETURN [ctx]; 
last ^ ctx; 
ENDLOOP; 
ctx <- TableDef s. Al locate[ctxtype, SIZE[included CTXRecord]]; 
{ctxb+ctx)t f- CTXRecord[ 
sn: snNil, 
selist: ISENull. 

ctxlevel: (iCtxb+ictx) .ctxlevel , 
extension: included[ 

ctxchain: includedCTXNull, 
ctxmodule: mdroot, 
ctxmap: target, 
restricted: FALSE, 
ctxcomplete: FALSE, 
ctxclosed: FALSE, 
ctxreset: FALSE]]; 
IF last = CTXNull 

THEN (mdb+mdroot) .mdctx «- ctx 
ELSE (ctxb+last) .ctxchain ♦- ctx; 
RETURN [ctx] 
END; 

UnknownModule: PUBLIC SIGNAL [HTIndex] - CODE; 

FillModule: PUBLIC PROCEDURE [sei: ISEIndex. file: HTIndex] - 
BEGIN 

mdi: MDIndex « CopierDef s .HtiToMdi[f ile]; 
iHti: HTIndex; 
isei: ISEIndex; 

IF mdi » MDNull OR -OpenIncludedTable[mdi] 
THEN DummyCtxSe[sei] 
ELSE 
BEGIN 
BEGIN 
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iHti ^ InverseMapHti[(seb+sei).htptr IMissingHti «> GO TO failed]; 
isei ^ iBase.SearchContext[iHti , iBase. stHandle.directoryCtx]; 
IF isei - SENun OR -( iSeb+isei) .pub! ic THEN GO TO failed; 
CopyCtxSeInfo[sei , isei, mdi]; (seb+sei) .public ^ FALSE; 
EXITS 

failed »> 

BEGIN SIGNAL UnknownModule[(seb+sei ) . htptr] ; DummyCtxSe[sei]; 
END; 
END; 
CloseIncludedTable[]; 
END; 
RETURN 
END; 

DummyCtxSe: PROCEDURE [sei: ISEIndex] ■ 
BEGIN OPEN (seb+sei); 

idtype *- typeANY; idinfo ♦- idvalue ♦- 0; 
extended <- public ♦- linkSpace ♦- FALSE; 
mark3 ^ mark4 <- writeonce ^ constant ^ TRUE; 
RETURN 
END; 

CopylncludedSymbol : PUBLIC PROCEDURE [isei: SEIndex, mdi: MDIndex] RETURNS [sei: SEIndex] ■ 
BEGIN 

ctx: includedCTXIndex; 
hti, iHti: HTIndex; 
imdi: MDIndex; 

IF isei « SENull THEN RETURN [SENull]; 
WITH (iSeb+isei) SELECT FROM 
id -> 
BEGIN 

IF ctxnum « FIRST[CTXIndex]+SIZE[simple CTXRecord] THEN RETURN [isei]; 
ctx <- FindIncludedCtx[mdi, ctxnum]; 
hti <r MapHti[litptr]; 
sei <- SearchContext[hti , ctx]; 
IF sei « SENull 
THEN 

BEGIN imdi <- (ctxb+ctx) . ctxmodule; 
IF imdi « mdi OR -(mdb+imdi ) .mdshared 

THEN sei ^ CopyCtxSe[LOOPHOLE[isei , ISEIndex], hti, ctx. mdi] 
ELSE 
BEGIN 

CloseIncludedTable[]; 
IF OpenIncludedTable[imdi] 
THEN 

BEGIN iHti *- InverseMapHti [hti] ; 

isei <- iBase.SearchContext[iHti , (ctxb+ctx) .ctxmap]; 
END 
ELSE [] <- OpenIncludedTable[imdi*-mdi]; 
sei ♦- CopyCtxSe[LOOPHOLE[isei, ISEIndex], hti, ctx, imdi]; 
CloseIncludedTable[] ; 
[] ^ OpenIncludedTable[mdi] ; 
END; 
END; 
END; 
constructor »> sei <- CopyNonCtxSe[LOOPHOLE[isei , CSEIndex], mdi]; 
ENDCASE; 
RETURN 
END; 

CopyCtxSe: PROCEDURE [isei: ISEIndex. hti: HTIndex, ctx: CTXIndex, mdi: MDIndex] RETURNS [sei: ISEInd 
**ex] » 
BEGIN 

sei ♦- makectxse[hti . ctx]; CopyCtxSeInfo[sei , isei, mdi]; RETURN 
END; 

CopyCtxSelnfo: PROCEDURE [sei. isei: ISEIndex. mdi: MDIndex] - 
BEGIN 

OPEN id: (seb+sei); 

IF (iSeb+isei). ctxnum - CTXNull THEN id. ctxnum <- CTXNull; 
id. extended <- ( iSeb+isei) .extended; 
id. public <- ( iSeb+isei) .publ ic; 
id. writeonce ^ ( iSeb+isei) .writeonce; 
id. constant <- ( iSeb+isei) .constant; 



SymbolCopier.mesa 2-Sep-78 12:59:59 Page 6 



id.1 inkSpace ^ ( iSeb+isei) . 1 inkSpace; 

id.idtype ^ CopyIncludedSymbol[(iS9b+isei) . idtype, mdi]; 

IF (iSeb+isei).idtype » typeTYPE 

THEN id.idinfo ^ CopyIncludedSymbol[(iSeb+isei) . idinfo, mdi] 
ELSE IF (iSeb+isei). constant AND 

(SELECT iBase.XferMode[{iS0b+isei).idtype] FROM 
procedure, program ■> TRUE, 
ENDCASE ■> FALSE) 
THEN id.idinfo <- CopyInc1udedBody[(iSeb+isei) , idinfo, sei , mdi] 
ELSE id.idinfo ^ ( iSeb+isei ). idinfo; 
id.idvalue ^ (iSeb+isei) . idvalue; 
id.mark3 <- id.mark4 <- TRUE; 

IF id.linkSpace THEN BEGIN id.writeonce ^ TRUE; id.idinfo *- END; 
IF id. extended 

THEN SymSegDefs.EnterExtension[sei , CopyExtension[isei]]; 
RETURN 
END; 

CopyExtension: PROCEDURE [iSei: ISEIndex] RETURNS [TreeDefs.TreeLink] ■ 
BEGIN 
OPEN TreeDefs; 

InputTree: TreeMap ■ 
BEGIN 
WITH link: t SELECT FROM 

literal => v ♦- InputLitera1[link]; 

subtree «> v <- CopyTree[[baseP:0iBase. tb, link:link], InputTree]; 

ENDCASE »> ERROR; -- for now 
RETURN 
END; 

InputLiteral: PROCEDURE [t: literal TreeLink] RETURNS [TreeLink] - 
BEGIN 
WITH t.info SELECT FROM 

word => index ^ LitDef s.CopyLiteral [[baseP:@iBase.ltb, index: index]] ; 

ENDCASE => ERROR; 
RETURN [t] 
END; 

exti: SymSegDef s .Extlndex; 

FOR exti <- FIRST[SymSegDefs. Extlndex], exti + SIZE[SymSegDef s .ExtRecord] 

DO 

IF (iBase.extb+exti).sei » iSei THEN EXIT; 

ENDLOOP; 
RETURN [InputTree[(iBase.extb+exti). tree]] 
END; 

CopylncludedBody: PROCEDURE [iBti: CBTIndex, sei: ISEIndex, mdi: MDIndex] RETURNS [bti: CBTIndex] 
BEGIN 

iCtx: CTXIndex; 
IF iBti = BTNull 

THEN bti *- CBTNull 
ELSE 

BEGIN OPEN TableDefs; 
iCtx <- (iBase.bb+iBtij.localCtx; 
WITH body: ( iBase. bb+iBti) SELECT FROM 
Outer -> 
BEGIN 

bti ♦- Allocate[bodytype, SIZE[Outer Callable BodyRecord]]; 
(bb+L0OPH0LE[bti, OCBTIndex])t ♦- body; 
END; 
Inner »> 
BEGIN 

bti <- Al locate[bodytype, SIZE[Inner Callable BodyRecord]]; 
(bb+LOOPHOLE[bti, ICBTIndex])t 4- body; 
END; 
ENDCASE: 
(bb+bti).link <- [parent, BTNull]; (bb+bti) .f irstSon ^ BTNull; 
(bb+bti).id ^ sei; (bb+bti ) . ioType +- (seb+sei) . idtype; 
(bb+bti).localCtx ^ IF ( iBase.bb+iBti ). level - IG 
THEN FindIncludedCtx[mdi, iCtx] 
ELSE CTXNull; 
END; 
RETURN 
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END; 

CopyNonCtxSe: PROCEDURE [isei: CSEIndex, mdi: MDIndex] RETURNS [sei: CSEIndex] 
BEGIN 

tseil, ts8i2, tsei3: SEIndex; 
rseil, rsei2: recordCSEIndex; 
tag: ISEIndex; 
tctx: CTXIndex; 

IF isei ■ SENull THEN RETURN [CSENull]; 
WITH (iSeb+isei) SELECT FROM 
mode ■> RETURN [typeTYPE]; 
basic -> RETURN [isei]; 
ENDCASE; 
WITH itype: (iSeb+isei) SELECT FROM 
enumerated ■> 
BEGIN 

sei ^ makenonctxse[SIZE[enumerated constructor SERecord]]; 
tctx *- CopyInc1uded\/a1ues[itype.va1uectx, mdi, sei]; 
(seb+sei) . typeinfo <- enumerated[ 
ordered: itype. ordered, 
valuectx: tctx, 
nvalues: itype. nvalues]; 
END; 
record ■> 
BEGIN 

tctx <- FindIncludedCtx[mdi , itype. fieldctx]; 
WITH itype SELECT FROM 
notlinked ■> 
BEGIN 

sei ^ makenonctxse[SIZE[not1 inked record constructor SERecord]]; 
(seb+sei) .typeinfo ^ record[ 

machineDep: itype. machineDep, 
unifield: itype .unifield, 
argument: itype . argument, 
defaultFields: i type. defaultFi elds, 
fieldctx: tctx. 
length: itype. length, 
comparable: itype. comparable, 
private Fields: itype.privateFields, 
lengthUsed: FALSE, 
monitored: itype. monitored, 
variant: itype. variant, 
linkpart: notl inked[]]; 
END; 
linked ■> 
BEGIN 

sei <- makenonctxse[SIZE[l inked record constructor SERecord]]; 
tseil ^ CopyIncludedSymbol[l inktype, mdi]; 
(seb+sei) . typeinfo <- record[ 

machineDep: itype. machineDep. 
unifield: itype .uni field, 
argument: itype. argument, 
defaultFields: itype. defaultFields. 
fieldctx: tctx, 
length: i type. length . 
comparable: itype. comparable. 
privateFields: itype.privateFields. 
lengthUsed: FALSE, 
monitored: itype .monitored, 
variant: itype. variant, 
linkpart: linked[l inktype: tseil]]; 
END; 
ENDCASE; 
END; 
pointer ■> 
BEGIN 

sei ^ makenonctxse[SIZE[pointer constructor SERecord]]; 
tseil ♦- CopyIncludedSymbol[itype.pointedtotype. mdi]; 
(seb+sei) .typeinfo <- pointer[ 
pointedtotype: tseil, 
readonly: itype. readonly , 
ordered: itype. ordered, 
basing: i type. basing , 
dereferenced: FALSE]; 
END; 
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array ■> 
BEGIN 

sei <- makenonctxse[SIZE[array constructor SERecord]]; 
tseil ^ CopyInc1ucledSymbo1[itype.inclextype, mdi]; 
tsei2 ^ CopyIncludedSymbo1[itype,componenttype, mdi]; 
(seb+sei) .typeinfo *- array[ 

packed: itype. packed, 

indextype: tseil, 

componenttype: tsei2, 

comparable: itype. comparable, 

lengthUsed: FALSE]; 
END; 
arraydesc ■> 
BEGIN 

sei ^ makenonctxse[SIZE[arraydesc constructor SERecord]]; 
tseil *- CopylncludedSymbol [itype. describedType, mdi]; 
(seb+sei) .typeinfo <- arraydesc[describedType: tseil]; 
END; 
transfer ■> 
BEGIN 

sei ^ makenonctxse[SIZE[transfer constructor SERecord]]; 
rseil <- CopyArgRecord[itype. inrecord, mdi]; 
rsei2 <- CopyArgRecord[itype.outrecord, mdi]; 
(seb+sei) .typeinfo ♦- transfer[ 

mode: itype. mode, 

inrecord: rseil, 

outrecord: rsei2]; 
END; 
definition »> 
BEGIN 

sei <- makenonctxse[SIZE[def inition constructor SERecord]]; 
tctx ♦- FindIncludedCtx[mdi , itype. defCtx]; 
(seb+sei) .typeinfo *- definition[ 
nGfi: itype. nGfi, 
defCtx: tctx]; 
END; 
union ■> 
BEGIN 

sei *- makenonctxse[SIZE[union constructor SERecord]]; 
tctx ^ FindInc1udedCtx[mdi . itype. casectx] ; 

tag ♦- CopyCtxSe[itype. tagsei , MapHti[(iSeb+itype. tagsei) .htptr] , CTXNull , mdi]; 
(seb+sei) .typeinfo «- union[ 

casectx: tctx, 

overlayed: itype. overlayed, 

controlled: itype. controlled, 

tagsei: tag, 

equal Lengths: itype. equal Lengths]; 
END; 
relative ■> 
BEGIN 

sei ^ makenonctxse[SIZE[rel ative constructor SERecord]]; 
tseil <- CopyIncludedSymbol[itype.baseType, mdi]; 
tsei2 <r CopylncludedSymbol [itype. of fsetType, mdi]; 
tsei3 ♦- IF itype. resultType « itype. off setType 
THEN tsei2 

ELSE CopyIncludedSymbol[itype. resultType, mdi]; 
(seb+sei) .typeinfo <- relative[ 
baseType: tseil, 
offsetType: tsei2, 
resultType: tsei3]; 
END; 
subrange «> 
BEGIN 

sei ♦- makenonctxse[SIZE[subrange constructor SERecord]]; 
tseil <- CopyIncludedSymbol[itype. rangetype, mdi]; 
(seb+sei) . typeinfo ♦- subrange[ 

filled: i type. fil led, 

empty: itype. empty, 

flexible: itype. flexible, 

rangetype: tseil, 

origin: itype. origin, 

range: itype. range]; 
END; 
long "> 
BEGIN 
sei ♦- makenonctxse[SIZE[long constructor SERecord]]; 
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tseil <- CopyIncludedSymbo1[itype.rangetype, mdl]; 

(seb+sei) .typeinfo <- long[rangetyp8: tseil]; 

END; 
real ■> 

BEGIN 

sei ♦- makenonctxse[SIZE[real constructor SERecord]]; 

tseil <- CopyInc1udedSymbol[itype. rangetype, mdi]; 

(seb+sei) .typeinfo ^ real[rangetype: tseil]; 

END; 
ENDCASE -> ERROR; 
(seb+sei) .marks ^ (seb+sei) .mark4 ♦- TRUE; RETURN 
END; 

CopyArgRecord: PROCEDURE [irsei: recordCSEIndex, mdi: MDIndex] RETURNS [rsei: recordCSEIndex] ■ 
BEGIN 

ctx, ictx: CTXIndex; 
sei, isei, seChain: ISEIndex; 
IF irsei - SENull 

THEN rsei ^ recordCSENull 
ELSE 
BEGIN 
rsei ^ L00PH0LE[makenonctxse[SIZE[not1 inked record constructor SERecord]]]; 

ictx ^ (iSeb+irsei ) .f ieldctx; 
ctx ^ makenewctx[( iCtxb+ictx) .ctxievel]; 
seChain ♦- makeSEChain[ctx, iBase.CtxEntries[ictx] , FALSE]; 
(ctxb+ctx) .sei ist ♦- seChain; 

FOR isei *■ ( iCtxb+ictx) . sei ist, iBase.NextSe[isei] UNTIL isei ■ SENull 
DO 

sei *■ seChain; seChain <- NextSe[seChain]; 
(seb+sei ). htptr *- MapHti[( iSeb+isei) .htptr] ; 
CopyCtxSeInfo[sei , isei, mdi]; 
ENDLOOP; 
(seb+rsei)t <- SERecord[ 
mark3: TRUE, 
mark4: TRUE, 
sebody: constructor[ 
record[ 

machineDep: FALSE, 
unifield: (iSeb+irsei) .unif ield, 
argument: TRUE, 

defauUFields: (iSeb+ irsei) .def aul tFields. 
fieldctx: ctx, 

length: ( iSeb+irsei) . length, 
comparable: {iSeb+ irsei) .comparable, 
privateFields: ( iSeb+irsei) .privateFields, . 
lengthUsed: FALSE, 
monitored: FALSE, 
variant: FALSE, 
linkpart: notl inked[]]]] ; 
END; 
RETURN 
END; 

CopylncludedValues: PROCEDURE [ictx: CTXIndex. mdi: MDIndex, type: SEIndex] RETURNS [ctx: includedCTX 
**Index] " 
BEGIN 

isei, sei, seChain: ISEIndex; 
ctx ♦- FindIncludedCtx[mdi , ictx]; 
isei <- ( iCtxb+ictx) . sei ist; 

IF isei ff SENull AND ( iSeb+( iSeb+isei ) . idtype) . setag # id 
THEN 
BEGIN 

seChain ♦- makeSEChain[ctx, iBase.CtxEntries[ictx] , FALSE]; 
(ctxb+ctx) .sei ist ♦- seChain; 

(ctxb+ctx) .ctxclosed ♦- (ctxb+ctx) .ctxreset <- TRUE; 
UNTIL isei ■ SENull 
DO 

sei ^ seChain; seChain ♦- NextSe[seChain]; 
(seb+sei) .htptr <- MapHti[( iSeb+isei) .htptr]; 
(seb+sei ) .extended <- (seb+sei) . 1 inkSpace <- FALSE; 
( seb+sei) .writeonce <- (seb + sei ), constant *- TRUE; 
(seb+sei ) .publ ic ♦- ( iSeb+isei) .publ ic; 
(seb+sei) . idtype ♦- type; (seb+sei) . idinfo ♦- 0; 
(seb+sei) . idvalue <- ( iSeb+isei) . idvalue; 
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(seb+sel) .mark3 ^ (seb+sel) .mark4 ♦- TRUE; 
isei <- iBase.N8xtSe[isei]; 
ENDLOOP; 
(ctxb+ctx) .ctxcomplete ♦■ TRUE; 
END; 
RETURN 
END; 

-- included module accounting 

resetctx: PROCEDURE [ctx: includedCTXIndex] ■ 
BEGIN 

IF -(ctxb+ctx) .ctxreset 
THEN 

BEGIN resetctxlist[ctx]; 

(ctxb+ctx) .ctxclosed ♦- (ctxb+ctx) .ctxreset <- TRUE;" 
END; 
RETURN 
END; 

ResetlncludeContexts: PUBLIC PROCEDURE ■ 
BEGIN 

mdi: MDIndex; 

limit: MDIndex » LOOPHOLE[TableDef s.TableBounds[mdtype].size]; 
ctx: includedCTXIndex; 

FOR mdi *- FIRST[MDIndex] , mdi + SIZE[MDRecord] UNTIL mdi « limit 
DO 

FOR ctx ^ (mdb+mdi).mdctx, (ctxb+ctx) .ctxchain UNTIL ctx » CTXNull 
DO 

resetctx[ctx]; 
ENDLOOP; 
ENDLOOP; 
RETURN 
END; 

TableRelocated: PUBLIC SIGNAL - CODE; 

OpenlncludedTable: PUBLIC PROCEDURE [mdi: MDIndex] RETURNS [success: BOOLEAN] 
BEGIN 

base: SymbolTableDef s.SymbolTableBase « CopierDef s .GetSymbolTable[mdi]; 
IF success ♦- (base # NIL) 
THEN 

BEGIN 

iBase *- base; 

iBase.notif ier ♦- SetlncludedBases; 

SetIncludedBases[iBase]; 

END; 
RETURN 
END; 

SetlncludedBases: PROCEDURE [base: SymbolTableDefs.SymbolTableBase] ■ 
BEGIN 

IF base ff iBase THEN ERROR; 

iHt <- base.ht; iSeb ♦- base.seb; iCtxb ♦- base.ctxb; 
SIGNAL TableRelocated; 
RETURN 
END; 

CloselncludedTable: PUBLIC PROCEDURE - 
BEGIN 

iBase.notif ier ♦- iBase. Nul INotif ier; 
CopierDef s , FreeSymbolTable[ iBase]; 
RETURN 
END; 

END... 



